请各位帮帮小妹吧``急```` 用VB代码编写1!*2!*3!....N!

dim i,n,fact,sum as integer

sum = 1
fact = 1
for i = 1 to n step 1
fact = fact * i
sum = sum * fact
end for

把你的表达式改为1^N×2^(N-1)……N^1
Dim i,n,preresult,midresult,finalresult as integer
'首先声明一下变量，分别为i,n,preresult,midresult,finalresult
n=10
'把n赋值为10，n的值可以随意修改，但注意不要太大，因为算出的结果会超出范围、也不能是小数或负数……总之n的赋值就是你表达式“1!*2!*3!....N!”中N的合理范围。
midresult=1
'声明变量后默认值是0，因为之后的乘法运算，需要改成1。
For i= 1 to n step 1
'做一个循环语句。
preresult=i^(n+1-i)
'分别算出从1至n的乘方。
midresult=preresult*midresult
'把他们全部相乘。
next i
'退出循环。
finalresult=midresult
'得到最终的答案。

有问题俄……
没有end for这种用法的好像
下面是我编的，窗体上添加一个按钮Command1即可：
Private Sub command1_click()
Cls '清屏
Dim i, n As Integer '定义i,n为整形
Dim fact, sum As Double '定义fact ,sum为双精度整形（为了能计算跟多位数）
n = InputBox("输入n") '弹出对话框输入n
sum = 1
fact = 1 '这就不用解释了吧~
For i